unit ReportList;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, List, ImgList, Grids, DBGrids, RzDBGrid, ComCtrls, ToolWin, DB,
  ExtCtrls, RzPanel, RM_class, RM_FormReport, RM_dset, RM_dbset, Printers,
  DBGridEh, GridsEh, RzButton;

type
  TReportListFrm = class(TListFrm)
    ToolBar1: TRzToolbar;
    ToolButton5: TRzToolButton;
    ToolButton4: TRzToolButton;
    ImageList1: TImageList;
    Search: TRzToolButton;
    RzPanel1: TRzPanel;
    rpMain: TRMReport;
    rmDs: TRMDBDataSet;
    DBGrid1: TDBGridEh;
    procedure ToolButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ReportListFrm: TReportListFrm;

implementation

{$R *.dfm}

procedure TReportListFrm.ToolButton4Click(Sender: TObject);
begin
  inherited;
  Close;
end;

end.
